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Résultat 


a Calculatrice 


ره الرحمن ١‏ 
کک اچ 


الصلاة والسلام على مولانا رسول الله.الحمد لله الذي هدانا إلى هدا ولولا هديه ما كنا لنهتدي.... 
أحبتي في الله قبل كل شيء أريد ان اتحدت ولو قليلا عن لغة خعم.ط۷. 

تعتبر لغة ٤عم.ط»‏ من بين لغات البرمجة الأكثر تطورا لقد عرفت مسيرة كبيرة من التحديثات 

فهي لغة ذات كفاءة وسهولة في البرمجة فهي لغة المبتدئين والمحترفين قي نفس الوقت 

بين يديك عزيزي القارئ كتيب بسيط يرشدك إلى كيفية صناعة آلة حاسبة بنفسك بكل سهولة وبساطة 


لقد حاولت أن اشرح لأمر بما فيه الكفاية.أملي الوحيد هو الاستفادة .و ان تدعوا لي عزيزي القارئ ولكل 
الفطافن 


كما أني أرحب بصدر رحب بكل الإضافات والتعديلات التي يمكن أن تضيفها للكتاب والتي تراها أنها جديرة 


وفي الأخير ارجوا من العلي القدير أن تهدينا إلى الطريق السوي والى ما فيه صلاح لأنفسنا ولغيرنا 
وأتمنى أن أكون عملت عملا صالحا خالصا لوجه ربي وان ينفع به كل المسلمين 
المؤلف ٠:‏ 
مصطفی|الر موسي 


ramoussi@gmail.com 


نبدا بركة الله 
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تم تطنغط علی»0 يمكن تغيير اسم المشروع إلى إي اسم رتد 
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نحصل على ما يسمى بالفارم وهي الواجهة التي سنقوم لاحقا بإضافة 
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شريط الأدوات 


سنقوم بإضافة الأدوات اللازمة وتصفيفها و ترتيبها إلى آن يتم | لحصول 
على الشكل النهائي كما توضح الصورة. 
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ور العمليات مربع الأرقام 


نقوم بالدخول الى صفحهة كتاية الكو ذ الخاصة بالنمودج ۴ الفورح وذالك 


بالنقر عليه مرتين بزر الفأرة الأيسر ثم نقوم بحجز متغيرين عامين 


من نوع عاعہ او 


Dim s1, s2 as single 
ومتغير واحد عام كداك من نوع ۲۱۸4ا9‎ 
Dim op as string 
80 ومتغير واحد عام كداك من نرع 2۸عا0‎ 


Dim op as boolean 
وألان نأتي إلى كتابة الأزرار.وهناك طريقتان‎ 
الأولى‎ 


ثم ننقر على زر رقم واحد ونكتب داخله الكود التالي 


Private Sub Buttonl Lliczck l(BTFVal sender AS SYStem. VbjeEt, BYTa 
Tl. lemKt = Tl. TET #4 "I 
1 Erd Sub 


يتم كتابة هذا الكود في أزرار الأرقام من واحد إلى تسعة 
وكذلك زر الفاصلة الحشر ية فق 
ملآّحظة : مع تغير الرمز "1" برمز الذي مسمى به الزر 


أو نقوم بالضغط على الزر رقم 0 ونكتب الكود الذي يظهر في الصورة 
أسفله وبهدا قد وفرنا على انسفنا كتابة الكود السابق لكل زر . 
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EH Public Class Forîal ف اس‎ E 
Dim 31, 523 B3 Single < Ba] My Project 
Dim op: As String < E] Application Everts .vb 
Applications ico 
Fam .wb 


Dim cC As Scocliean 


xoqıoo 1 f | ao|dx3 amas | 


False 
LOM visible RE 
Serializable False 


Private Sub Buttons Click ([EyVal sender As Systen.Ubject, ByVal e As System. EventArg: 


End. Sub 


PFri¥vrate Sub Buttonll Click (SyVal sender As System.Object, Eyal e As System: EventArr 
SL =< VEU ITS TEFTEF 
TCI (]} 
ap = LE 

End Sub 


TET 


km‏ صف و س 


بعك ذلك نكتب في زر الجمع" + "الكود التالي 


Private Sub Button Click(ByVal sender As System.Object, BE 
a1 Valf( T1. TEXT] 
T1.Clear (| 
np = 4 

End Sub 


يتم كتابته في أزرار العمليات ماعدا زر اليساوي" =" وزر الفاصلة العشرية 
NH 8‏ طبعا مع تغیر رمز ا ليه 


نأتي إلى زر الفاصلة حيت سيتم كتابة الكود التالي 


Private Sub ButtonlS Click(EyVal sender As Systen.Gbject, By¥Yal e As System.EventAr 


End Sub 


بعد ذلك نكتب في زر اليساوي" = "الكود التالي 


Private Sub Buttonl! Click (ByVal sender As System.Object, ByVal e As Systenm.EventArڊ‎ 


End Sub 


والآن جاء دور أزرار الجذر والمضروب والاس 
نكتب في ز_ر_ الجذرالتر ييحي 
"Sqr ıı‏ الگو د التاا 


Private Sub Burtonl? Click (ByVal sende 
Dim aqr As Double 
sûr = T1.Têxt ^ (1 7 2) 
T1.Text = Str laqr) 

End Sub 


ثم نكثب في زر الاس 


. الكود الثالى‎ M" ATI 


Private Sub Buttond1l Click(ByVal sender As System.Object, ByVa 
Din zum As Integer 
اة‎ = 0 
SUM = SUM + (Tl. Text. 1 Tl, Text) 
Ti.Text = Str lsum) 
End Sub 
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Private Sub BurtonlS Click (ByVal sender ls System, Ohject 
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آما في أزرار الألوان سنكتب الكود التالي 


1 
زر إنهاء البرنامج نكتب الكود التالي 


Private Sub RadioButton CheckedChanged( ByVal sender As Systenm.UbjJect, ByVal e As S5 
Close f) 
End Sub 


الآن بعد الانتهاء من كتابة جميع الأكواد قم بتنفيذ وذلك بالضغط على زر 
F5‏ 
في لوحة المفاتيح أو بالضغط على زر التنفيذ في شريط الأدوات القياسية 
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الان سنقوم ببناء الالة وذلك بالدخول علي خصائص التطبيق من قائمة 
مشرو ع گما موصح. 
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بتغير الأيقونة أذا أردت ثم اضغط على تطبيق وموافق 
عد ڈلاف أدخل على آآ وا ا ا visual Studio Projects‏ 


ثم ستجد مجلدات المشاريع الأخرى أذا كان لديك 
ابحث عن اسم مشروعك › مشروع الحاسبة 
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أسأل الله أن يكون هذا العمل مفيدا وخالصا لوجه الله» فما كان 
والشيطان. 
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